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BUFFERED INPUT/OUTPUT PACKAGE, BFPKG 
INTRODUCTION 

Efficient I/O handling is the most important single factor in the effective 
utilization of CPU time. Input/output devices, always slow compared to the 
internal speed of the CPU, must be programmed to overlap their operations 
with main line computations whenever possible. 

The RDOS and RTOS system libraries provide a module named BFPKG (MBFPKG 
in mapped systems) which permits faster line and sequential I/O transfers than is 
possible using the system I/O calls. This package is approximately 670 „ words in 
length. It utilizes tasking concepts to fill (or empty) two or more core Duffers 
asynchronously, providing a constant supply of data for program (or device) pro- 
cessing. 
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BFPKG provides four OPEN commands, one command for accessing buffers, 
and one command to close files and release their buffers. These commands 
closely resemble system commands, and in fact the BFPKG module issues 
. SYSTM open, line, sequential and close commands. The following list 
• summarizes the entry points in BFPKG: 

BFRSO Open a file for a sequential read 

BFRLO Open a file for a line read 

BFWSO Open a file for a sequential write 

BFWLO Open a file for a line write 

BFACS Access the buffers 

BFCLS Close a file and release its buffers 

Every BFPKG entry point that a user wishes to access must be referenced by 
him in an external normal statement, . EXTN . 

BUFFER ORGANIZATION 

The user must reserve a dedicated core buffer area for each type of I/O oper- 
ation that is to occur asynchronously. He must also issue the appropriate open 
command, the buffer access command, and finally the buffer close command to 
release the buffers for other use. Moreover, having chosen to use buffered I/O, 
the user is cautioned not to attempt opening or closing the desired file by means 
of conventional system open and close commands. Only the special BFPKG open 
and close commands can be used with the buffer access command. 

Each buffer area that is reserved for use with BFPKG has certain fixed portions 
which are used by BFPKG for housekeeping and temporary storage. Thus, the 
total buffer area reserved by the user must indicate sufficient storage for these 
fixed blocks. Each buffer area is preceded by a 21 octal word header called the 
Buffer Environment Table (BET). The user need be concerned with only the first 
three words. 



BUFFER ORGANIZATION (Continued) 

in the BET. The first word in the BET area (called FWA) contains the RDOS channel 
number to be used in the transfer, right justified. The priority at which the task 
filling (or emptying) the buffers is to operate must be specified in the left byte of 
this same word. The task priority should be higher than that of the user program 
desiring the buffered I/O. The contents of word FWA+1 must also be written by the 
user before issuing any file open calls. This word contains the integer number of 
segments into which the user wishes the usable (net) buffer space to be subdivided. 
If any value smaller than 2 is specified, BFPKG will use a default value of 2 for the 
number of segments. 

The user may subdivide the net buffer space into as many segments as he wants pro- 
vided adequate buffer area is allocated. If read or write line operations are to be 
performed, the buffer space will be divided into 66 decimal word buffer segments; 
an error return will result, with error code ERSPC, if sufficient buffer area is 
available for two 66 word buffers. If read or write sequential I/O is to be performed, 
there must be at least one word (2 bytes) per buffer segment or error code ERSPC 
will be issued when an attempt is made to open the file. 

Word FWA+2, also constructed by the user, contains a characteristic inhibit mask. 
This mask word is used to inhibit device characteristics indicated by bit positions 
in a mask word. The bit definitions in this mask word are as follows: 

Meaning 

Spooling control (RDOS only). 

Card input (80-column) device. 

Device changing lower case ASCII to upper case. 

Device requiring form feeds on opening. 

Full word device (reads/writes more than one byte). 

Spoolable device (RDOS only). 

Output device requiring line feeds 

after carriage returns. 

Input device requiring even parity check; 

output device requiring even parity computation. 

Output device requiring a rubout after every tab. 

Output device requiring nulls after every form feed. 

A keyboard input device. 

A teletypewriter output device. 

Output device without form feed hardware. 

Device requiring operator intervention (RDOS only). 

Output device without tabbing hardware. 

Output device requiring leader/trailer. 

Each buffer subdivision or segment will have its first four words reserved for a seg- 
ment header, also used by BFPKG. Thus, the net buffer space available for data 
transfers is calculated as follows: 

Net Buffer Space = Total Buffer Area -21g - 4* number of buffer segments 



Bit 


Mnemonic 


1B0 


DCSPL 


1B1 


DCC80 


1B2 


DCLTU 


1B3 


DCFFO 


1B4 


DCFWD 


1B5 


DCSPO 


1B6 


DC LAC 


1B7 


DCPCK 


1B8 


DC RAT 


1B9 


DCNAF 


1B10 


DCKEY 


1B11 


DCTO 


1B12 


DCCNF 


1B13 


DCIDI 


1B14 


DCCGN 


1B15 


DCCPO 



The following illustration shows a typical buffer area structure: 



FWA - 



Task Priority \ I/O Channel * 



Number of Buffer Segments 



Characteristic Inhibit Mask 



4 Words { Segment Header 



4 Words { 



4 Words { 



4 Words { 



Segment Header 



Net Area 



J 



► Buffer Environment Table 
(17 g Words) 



Net Area 



Segment Header 



Net Area 



Segment Header 



Net Area 



First Buffer Segment 



Second Buffer Segment 



Third Buffer Segment 



Fourth Buffer Segment 



TOTAL BUFFER AREA 



Thus, if the total buffer area consists of 117 decimal words and four segments are to 
be used, the net buffer space would be equal to 84 words, 21 words per buffer segment. 



BUFFER PACKAGE SUBROUTINE USAGE 
Open a File for Buffered I/O 

Before a file can participate in a buffered I/O transfer, the file must be opened. There 
are four file opening routines in BFPKG, one for each type of I/O transfer. The four 
symbolic entries to the open routines are: 



BFRSO Open a file to be read sequentially 

BFRLO Open a file to be read line by line 

BFWSO Open a file to be written sequentially 

BFWLO Open a file to be written line by line 



Open a File for Buffered I/O (Continued) 

ACO must contain a byte pointer to the file name. AC1 contains the integer word size 
of the total buffer area. AC2 contains the FWA of the buffer area, i.e. , the starting 
address of the total buffer area. The format of the open command is: 

. EXTN BFRSO (BFRLO, BFWSO, or BFWLO) 
.BFRSO: BFRSO (.BFRLO: BFRLO, etc.) 

(ACO) = byte pointer to file name 
(AC1) = word size of buffer 
(AC2) = FWA of the buffer area 
JSR @. BFRSO (BFRLO, etc. ) 
error return 
normal return 

Accumulators are restored upon a normal return. 

Possible errors resulting from an attempted open are identical to those which can 
occur from issuing a .SYSTM . OPEN command: 

AC2 Mnemonic Meaning 

ERFNO Illegal channel number. 

1 ERFNM Illegal file name. 
12 ERDLE File does not exist. 

21 ERUFT Attempt to use a channel which is already in use. 

Having decided to use buffered I/O calls for processing a file, the user is cautioned 
not to attempt opening or closing that file by means of conventional system open and 
close commands. BFPKG calls and their system counterparts may not be mixed in 
processing a given file. 

Access a File Opened for Buffered I/O (BFACS) 

Having opened a file for buffered I/O transfers, the specified type of transfer is in- 
itiated by means of the buffer access command, BFACS. Before issuing the call, ACO 
must contain a byte pointer to the user data area to or from which the transfers will 
ultimately occur. If the file is open for sequential transfers, AC1 must contain the 
number of bytes which are to be transferred. AC2 contains the FWA of that buffer area 
which will be used during the transfer. This must be the same address as was input to 
the open command for this transfer. The format of the buffer access command is as 
follows : 



Access a File Opened for Buffered I/O (BFACS) (Continued) 

. EXTN BFACS 
.BFACS: BFACS 

(ACO) = byte pointer to user buffer area 

(AC1) = number of bytes (for sequential transfers only) 

(AC2) = FWA of the buffer area 

JSR @ . BFACS 

error return 

normal return 

Accumulators are restored upon a normal return. 

All the errors which could result from the use of system calls to read or write lines 
or sequential bytes can occur when this command is invoked. A complete list of these 



Meaning 

Illegal channel number. 

Illegal command for the device. 

Attempt to write an existent file. 

End of file. 

Attempt to read a read protected file. 

Attempt to write a write protected file. 

Attempt to reference an unopened file. 

Line limit (133 characters) exceeded. 

Parity error on read line. 

Available memory exhausted. 

Not sufficient buffer space given. 

File read error. 

Attempt to perform multiple reads or 

writes on a QTY line simultaneously. 

Close a File Opened for Buffered I/O (BFCLS) 

Upon completion of a specified buffered transfer, either more of the same type of 
transfer can be requested by another call to BFACS or the file may be closed. Clos- 
ing the file by a call to BFCLS kills the buffer management task and releases the 
Buffer Environment Table and the buffer area, so all the area may be reused for 
other transfers, released to the system, etc. Before calling BFCLS, AC2 must be 
set to the FWA for this file. The format of this call is: 



errors follows. 




AC2 


Mnemonic 





ERFNO 


3 


ERICD 


5 


ERWRO 


6 


EREOF 


7 


ERRPR 


10 


ERWPR 


15 


ERFOP 


22 


ERLLI 


24 


ERPAR 


26 


ERMEM 


27 


ERSPC 


30 


ERFIL 


47 


ERSIM 



Close a File Opened for Buffered I/O (BFCLS) (Continued) 

. EXTN BFCLS 
.BFCLS: BFCLS 

(AC2) = address of file FWA 
JSR @ . BFCLS 
error return 
normal return 

Accumulators are restored upon a normal return. 

Possible errors resulting from this call are: 

AC2 Mnemonic Meaning 

ERFNO Illegal channel number. 

15 ERFOP Attempt to reference a channel not in use. 

EXAMPLE OF BUFFER PACKAGE USAGE 



One example of advantageous use of the buffer package is the processing of a 
large data file a few bytes at a time. Pvather than making a call to the operating 
system every time a few bytes of data is required, it is more efficient to buffer 
the data in the user's program area by making a call to the system to fill the 
buffer. 

The following program illustration shows the portions of such a program which 
use the buffer package. 



JEXAMPIE OF SUFFER PACKAGE USAGE 

•TITL EG 

.EXTN 8FRS0,8FACS,BFCLS 

,NR£L 

STAPT! tSTAOT nc aanno i u 



LDA a NAME IGET FILE NAME 

LOA 1 BSIZE IGET BUFFER SIZE 

'.DA 2 BFWAl IGET START OF BUFFER 

JSR 0.BFRSO I0PEN FOR READ SEQUENTIAL 

JSR EHROR TERROR RETURN 



AGAIN: LOA * BPTR IGET USER AREA BYTE POINTER 

LOA 1 C4 

LOA 2 BFWAl IGET START OF BUFFER 

JSR f.BFACS ;GET DATA FROM BUFFER 

JSR E*R1 ICHECK ERROR CODE 



IMORE TO COME 

IGET START OF BUFFER 
/NORMAL RETURN 

IGET END-OF-FILE CODE 

IEOF ERROR IS OKAY 
IERROR RETURN 

11/0 CHANNEL FOR INPUT 



finis: 


JMP AGAIN 

• 
• 




LOA 2 BFWAl 
JSR 0.8FCLS 
JSR ERROR 
.SVSTri 

,«TN 


ERR1! 

error: 

CHL* 


LDA 1 EOF 
SUR* 1 2 SNR 
JMP 9 3 

.SYSTtf 

.ERTM 

2 


8PTRJ 

C4: 
name: 


, + 1*2 

.3LK a 

4 

.TXTM I 

.♦1*2 

.TVT /OATAFILE/ 


BFWA1S 
FWAl 1 


FWAl 

50*4i?)0 + CHL 
2 

•Jt 

,9LK 21-3 
.BL« 3IZE/2+4 
,BLK SIZE/2+4 




,£NO START 



ISTART OF BUFFER AREA 

?PRIORITY«50, CHANNEL # «CHL 

12 BUFFER SEGMENTS 

ICHARACTERISTIC MASK 

IREST OF BUFFER ENVIRONMENT TABLE 

12 BUFFER SEGMENTS "SIZE" BYTES LONG 



BFPKG PROGRAM LISTING 

Following is the program listing of BFPKG as released with revision 4. 00 of the 
Real Time Disk Operating System and revision 4. 00 of the Real Time Operating 
System. 



0001 
01 
02 
03 
04 
05 
06 
07 
08 
09 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 



LICENSED MATERIAL - PROPERTY OF DATA GENERAL CORPORATION 
BFPKG MACRO REV 03.00 11:29:20 01/07/75 



******** ******************************************************* 
NAME: BFPKG. 5R PART NUMBER: 090-001297 

DESCRIPTION: BUFFER PACKAGE 



REVISION HISTORY: 

REV. 

00 
01 
02 



DATE 

01/09/73 
05/18/73 
11/30/73 



COPYRIGHT (C) DATA GENERAL CORPORATION, 1973 
ALL RIGHTS RESERVED. 

; LICENSED MATERIAL - PROPERTY OF DATA GENERAL CORPORATION. 

;******************************************** ******************* 



10002 
01 
02 
03 

05 
06 
07 
06 
09 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 



tfCENSEU M*TERlAfa -'PROPERTY OF'BATA GENERAL 'CORPORATION 
BFPKG 



000001 



000000 



000000 



.IFE 


MSW 






.TITL 


BFPKG 


J 


BUFFERED I/O PACKAGE 


,RB 


BFPKG. RB 




.ENDC 








.IFN 


MSW 






.TITL 


MBFPKG 


• 

; 


MAPPED BUFFERED I/O 


.RB 


MBFPKG 


.RB 




.ENDC 








.ENT 


BFRSO 


• 


OPEN FOR READ SEQ 


.ENT 


BFRLO 


; 


OPEN FOR READ LINE 


.ENT 


BFWSO 


; 


OPEN FOR WRITE SEQ 


.ENT 


BFWLO 


; 


OPEN FOR WRITE LINE 


.ENT 


BFACS 


; 


ACCESS THE BUFFERS 


.ENT 


BFCLS 


; 


CLOSE 


.EXTN 


.TASK 


i 


.KILL 


.EXTN 


.XMT 


t 


.XMTW 


.EXTN 


.REC 






.IFN 


MSW 






.EXTD 


TMN1 






.ENDC 








.NREL 









10 



J0003 

01 

02 

03 

04 

05 

06 

07 

06 

09 

10 

11 

12 

13 

14 

15 

16 

1 T 

1 * 

18 

19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 



LICENSED MATERIAL 
BFPKG 



PROPERTY OF DATA GENERAL CORPORATION 



; DEFINE SOME DISPLACEMENTS 

! BUFFER FNVTRnNMFMT TAB! P 



000000 .DUSR PRCHN=0 

000001 .DUSR NBFSQsl 

000002 .DUSR CHRIM=2 

000003 .DUSR CHNBR=3 



000004 
000005 
000006 
000007 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000020 



.DUSR 
,DUSR 
.DUSR 
.DUSR 
.DUSR 

• DUSR 
.DUSR 
.DUSR 

• DUSR 
.DUSR 
.DUSR 
.DUSR 

• DUSR 



BFAC0=4 
BFAC1=5 
BFAC2=6 
PCCRY=7 
BFUSP=10 
UBP=H 
BYCTM2 
SEGSZ=13 
ERFLG=14 
IOAQ=15 
I0DQ=16 
BFTP0S17 
BFTP1=20 



I SEGMENT HEADER 



000000 .DUSR 

000001 .DUSR 

000002 .DUSR 

000003 .DUSR 



LINK=0 

FBA = 1 

BP=2 

LBA=3 



000004 .DUSR HDRLT=LBA-LINK+1 



; PRIORITY & CHANNEL # 

; NUMBER OF BUFFER SEQMENTS 

; CHARACTERISTIC INHIBIT MASK 

; CHANNEL # & FLAG BITS 

; MODE FLAGS:- LINE=1B0 

' SEQs0B0 

i READ=0B1 

; WRITE=1B1 

; AC0 STORAGE 

; AC1 " 

; AC2 " 

} PROGRAM COUNTER t CARRY 

J STORAGE FOR USER'S USP 

; USER'S BYTE POINTER 

; BYTE COUNTER 

; SEGMENT SIZE 

; ERROR FLAG 

; I/O ACTIVE QUEUE 

; I/O DORMANT QUEUE 

; COMMUNICATION CHANNEL 

; TEMPORARY & CHANNEL 1 



; LINK WORD 
; FIRST BYTE ADDRESS 
; BYTE POINTER 
; LIMIT BYTE ADDRESS 

; (FIRST BYTE ADDRESS BEYOND SEGMENT) 
; HEADER LENGTH 
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01 

02 

03 

04 

05 

06 

07 

08 

09 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 



L 
BFP 



ICENSED 
KG 



MATERIAL - PROPERTY OF DATA GENERAL CORPORATION 



00000 
00001 
00002 
00003 

00004 
00005 
00006 
00007 

00010 
00011 
00012 
00013 
00014 
00015 

00016 
00017 
00020 
00021 



OPEN ROUTINES 



4 OPENS 



INPUTS: 



1. BFRSO - OPEN FOR READ SEQUENTIAL 

2. BFRLO - OPEN FOR READ LINE 

3. BFWSO - OPEN FOR WRITE SEQUENTIAL 

4. BFWLO - OPEN FOR WRITE LINE 

AC0 - BYTE POINTER TO FILENAME 

ACl - SIZE OF BUFFER AREA IN WORDS 
AC2 - FWA OF BUFFER AREA 



CHANNEL NUMBER IS RIGHT JUSTIFIED IN FWA OF BUFFER AREA 
PRIORITY IS RIGHT JUSTIFIED IN LEFT BYTE OF THE SAME WORD 

NUMBER OF SEGMENTS (IF GREATER THAN 2) IS RIGHT 
JUSTIFIED IN FWA+1. IF LINE MODE IS REQUESTED THE USEABLE 
AREA WILL BE DIVIDED INTO THE MAXIMUM NUMBER OF 
66 DECIMAL WORD SEGMENTS POSSIBLE 

MINIMUM BUFFER SIZE IS 27 DECIMAL WORDS 

RETURNS: CALL+1 - ERROR RETURN 

CALL+2 - SUCCESSFUL OPEN 

IN THE EVENT OF AN ERROR, THE ERROR CODE WILL BE RETURNED 
IN AC2 



175100 
055007 
006557 

000421 

175100 
055007 
006553 
000413 

175100 
055007 
006547 
101240 
101220 
000407 

175100 

055007 
006541 
101240 



BFRSO: 



BFRLO: 



BFWSO: 



BFWLO: 



MOVL 


3,3 


STA 


3,PCCRY,2 


JSR 


S.SAVX 


JMP 


SEQOP 


MOVL 


3,3 


STA 


3,PCCRY,2 


JSR 


a.SAVX 


JMP 


LINOP 


MOVL 


3,3 


STA 


3,PCCRY,2 


JSR 


S.SAVX 


MOVOR 


0,0 


MOVZR 


0,0 


JMP 


SEQOP 


MOVL 


3,3 


STA 


3,PCCRY,2 


JSR 


a.SAVX 


MOVOR 


0,0 



; READ SEQ OPEN 

J SAVE STATUS » CLEAR AC0 

; READ LINE OPEN 

; SAVE STATUS — CLEAR AC0 

; WRITE SEQ OPEN 

t SAVE STATUS -- CLEAR AC0 

; WRITE LINE OPEN 

; SAVE STATUS -- CLEAR AC0 
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LICENSED 
BFPKG 



10005 
01 

02 00022*101240 LINOP: 

03 00023M26001 

aii Ok !* a 2 .'! ! iS *3 C !% I* * S C .-..-. ft. . 
v-t v«wfc"t WJQ.JVWI gLilur * 

05 00025'045020 

06 00026'025000 COMOPs 

07 00027 •034525 

08 00030' 167400 

09 00031 '123000 

10 00032'041003 

11 00033*021005 

12 00034*024522 

13 00035*122400 

14 00036*025020 

15 00037'124015 

16 00040*000421 

17 00041 '176120 

18 00042*174400 

19 00043' 166433 

20 00044*165000 

21 00045*045020 

22 00046*127120 

23 00047*122400 

24 00050*101113 

25 00051*162433 

26 00052*000513 

27 00053*025020 
26 00054*004470 

29 00055' 175125 

30 00056*000507 

31 00057'055013 

32 00060*000411 

33 00061*024502 LINMD: 

34 00062*004462 

35 00063*102120 

36 00064*117112 

37 00065*000500 

38 00066*055020 

39 00067'034475 

40 00070*055013 



MATERIAL - PROPERTY OF DATA GENERAL CORPORATION 



MOVOR 

ADC 

lDA 

STA 

LDA 

LDA 

AND 

ADD 

STA 

LDA 

LDA 

SUB 

LDA 

COM* 

JMP 

ADCZL 

NEG 

SUBZ# 

MOV 

STA 

ADDZL 

SUB 

MOVL# 

SUBZ# 

JMP 

LDA 

JSR 

MOVZL 

JMP 

STA 

JMP 

LDA 

JSR 

ADCZL 

ADDL* 

JMP 

STA 

LDA 

STA 





1 1 SKP 

i NBrSu 2 

1 BFTPl 2 

1,PRCHN,2 

3,CHMSK 

3,1 

1,0 

0,CHNBR,2 

0,BFAC1,2 

1,BETSZ 

1,0 

1, BFTPl, 2 

1,1, SNR 

LINMD 

3,3 

3,3 

3,1,SNC 

3,1 

1, BFTPl, 2 

i,i 

1,0 

0,0, SNC 

3,0,SNC 

NES 

1, BFTPl, 2 

DIVI 

3, 3, SNR 

NES 

3,SEGSZ,2 

INIT 

1,LPHSZ 

DIVI 

0,0 

0,3,SZC 

NES 

3, BFTPl, 2 

3,MXLSZ 

3,SEGSZ,2 



; LINE MODE ENTRY POINT 

; SEQUENTIAL MODE ENTRY POINT 
/ SET MODE FLAG INITIALLY 



; ISOLATE CHANNEL # 
; ADD THE FLAG BITS 
t RETURN IT TO THE BET 
I GET AVAILABLE SIZE 

; REDUCE BY SIZE OF BET 

; LINE MODE? 
t YES 

; +2 

; IS SEG COUNT s> 2? 

} NO, MAKE EQUAL TO 2 

; SAVE 

; SEGMENT COUNT * 4 

I REDUCE BY SEG HEADER SIZE 

; USEABLE AREA -VE ? 

> USEABLE AREA »> 2 WORDS ? 
; NOPE 

; YES, GET SEGMENT COUNT 

> DIVIDE THE USEABLE AREA 

; SEG SIZE IN BYTES (IS THERE AN 

; NO 

; YES, SAVE THE SIZE 

; INIT THE SEGMENTS 

; SIZE OF LINE ♦ HEADER 

J DIVIDE USEABLE AREA 



; SEGMENT COUNT => 2? 

; NOPE 

; YES, SAVE THE COUNT 

; LINE SIZE IN BYTES 

; THAT'S THE SEGMENT SIZE 
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LICENSED 


10006 BFPKG 


01 






02 






03 


00071' 


024465 


04 


00072' 


147000 


05 


00073' 


045012 


06 


00074' 


102400 


07 


00075' 


041015 


06 


00076' 


041016 


09 


00077' 


041014 


10 


00100' 


135000 


11 


00101' 


024456 


12 


00102' 


167120 


13 


00103' 


045401 


10 


00104' 


045402 


15 


00105' 


021013 


16 


00106' 


107000 


17 


00107" 


045403 


18 


00110' 


125220 


19 


00111' 


045400 


20 


00112' 


015020 


21 


00113' 


000765 


22 


00114' 


126400 


23 


00115 


045400 


24 






25 






26 






27 






28 


00116 


021004 


29 


00117 


025002 


30 


00120 


'035003 


31 


00121 


'030433 


32 


00122 


'173400 


33 


00123 


'006017 


34 


00124 


'014077 


35 


00125 


'000441 


36 


00126 


' 171000 


37 


00127 


'021000 


38 


00130 


'024423 


39 


00131 


'123700 


40 


00132 


'035003 


41 


00133 


'025012 


42 


00134 


'177112 


43 


00135 


'045015 


44 


00136 


'177113 


45 


00137 


'045016 


46 


00140 


'024420 


47 


00141 


'077777 


48 


00142 


'000424 


49 


00143 


'002417 


50 






51 







MATERIAL - PROPERTY OF DATA GENERAL CORPORATION 



INITl 



INTLP: 



LDA 

ADD 

STA 

SUB 

STA 

STA 

STA 

MOV 

LDA 

ADDZL 

STA 

STA 

LDA 

ADD 

STA 

MOVZR 

STA 

DSZ 

JMP 

SUB 

STA 



1,BETSZ 

2,1 

1,BYCT,2 

0,0 

0,IOAQ,2 

0,1000,2 

0,ERFLG,2 

1,3 

1,C4 

3,1 

1,FBA,3 

1,BP,3 

0,SEGSZ,2 

0,1 

1,LBA,3 

1,1 

1, LINK, 3 

BFTP1,2 

INTLP 

1,1 

1, LINK, 3 



LDA 


0,BFAC0,2 


LDA 


1,CHRIM,2 


LDA 


3,CHNBR,2 


LDA 


2,CHMSK 


AND 


3,2 


.SYSTM 




.OPEN 


CPU 


JMP 


NES + 1 


MOV 


3,2 


LDA 


0,PRCHN,2 


LDA 


1,PRIMK 


ANDS 


1,0 


LDA 


3,CHNBR,2 


LDA 


1,BYCT,2 


ADDL# 


3,3,SZC 


STA 


1,I0A0,2 


ADDL# 


3,3,SNC 


STA 


1,I0DQ,2 


LDA 


1,TASK 


.TASK 




JMP 


NES + i 


JMP 


3RTN1 



; LINK WORD ADDRESS OF FIRST SEG 

J INTO THE BET (TEMPORARY) 

; UNARY ZERO 

; CLEAR THE QUEUES 

; CLEAR THE ERROR FLAG 



FIRST BYTE ADDRESS 

BYTE POINTER 

SEGMENT SIZE 

LIMIT BYTE ADDRESS 

INTO HEADER 

WORD ADDRESS 

SET THE LINK 

ANYMORE SEGMENTS? 

YES 

NO 

CLEAR THE LINK 



; FILENAME BYTE POINTER 

; CHARACTERISTIC MASK 

; CHANNEL # 

; CHANNEL # MASK 



; RECOVER PRIORITY 

; RETAIN IN RIGHT BYTE 

; FLAG WORD 

; FIRST QUEUE ENTRY 

; READ OR WRITE ? 

J WRITE, PUT ON PROGRESS 

; TEST READ OR WRITE ? 

; READ, PUT ON DORMANT Q 

S FWA OF TASK 
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10 



LICENSED MATERIAL - PROPERTY OF DATA GENERAL CORPORATION 
007 BFPKG 



02 








03 00144*055017 OIVI: 


STA 


3,BFTP0,2 




0<i 00145' 176401 


eim 


1.1 Ol/D 






w w 


j 9 J f *jr\r 




05 00146'175400 


INC 


3,3 




06 00147*122422 


SUBZ 


1*0, SZC 




07 00150'000776 


JMP 


.-2 




08 00151 ' 123000 


ADD 


1,0 




09 00152'003017 


JMP 


3BFTP0,2 




10 








11 








12 00153'177400 PRIMK: 


177400 






13 00154*000077 CHMSK: 


77 






14 00155*000027 SPERR: 


ERSPC 






15 00156'000021 BETSZ: 


BFTPl+1 






16 00157*000004 C4: 


4 






17 00160'000476'TASK: 


.TSK 






16 00161*000645'. SAVX: 


.SAVE 






19 00162'000377'RTNl: 


.RTRN 






20 00163*000107 LPHSZ: 


SCLLG/2+HDRLT+1 




21 00164*000205 MXLSZ: 


SCLLG+1 






22 








23 








24 00165*030770 NES: 


LDA 


2, SPERR 




25 00166*126000 


ADC 


1,1 




26 00167*034016 .ERR: 


LDA 


3,USP 




27 00170*124015 


COM* 


1,1, SNR 




28 00171 '045403 


STA 


1,CHNBR,3 




29 00172*051406 


STA 


2,BFAC2,3 




30 00173'021407 


LDA 


0,PCCRY,3 




31 00174*126120 


ADCZL 


1,1 




32 00175*123000 


ADD 


1,0 




33 00176*041407 


STA 


0,PCCRY,3 




34 00177*002763 


JMP 


SIRTN1 




35 








36 00200'000200'TRMTB: 


• 






37 00201*000015 


15 




; CARRIAGE RETURN 


36 00202*000014 


14 




; FORM FEED 


39 00203'000000 
40 







) NULL AND END OF TABLE 
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100(96 

01 

02 

03 

04 

05 

06 

07 

08 

09 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

21 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

46 

49 

50 

51 

52 

53 

54 

55 

56 

57 



LICENSED 
BFPKG 



MATERIAL - PROPERTY OF DATA GENERAL CORPORATION 
f BUFFER ACCESS ROUTINES 



00204' 175100 BFACS! 

00205'055007 

00206*035003 

00207*175112 

00210*024754 

00211 '006750 

00212*021004 

00213*041011 

00214*045012 

00215*035015 TRLP: 

00216*175004 

00217*000405 

00220*020545 

00221*143000 

00222'077777 

00223*000772 



00224*035402 GO: 

00225*021003 

00226*103112 

00227*035011 

00230' 175200 

00231'021400 

00232*024534 

00233*101003 

00234' 101300 

00235' 123400 

00236*035015 

00237'025003 

00240M27113 

00241 '011402 

00242M27112 

00243*011011 

00244'035015 STBYT: 

00245*035402 

00246'127U3 

00247*035011 

0025*0 '175200 

00251*025400 

00252*101003 

00253*105301 

00254*107000 

00255*045400 

00256'035015 

00257 '025003 

00260'127113 

00261*011011 

00262*127112 

00263*011402 

00264*015012 

00265'000401 



MOVL 


3,3 


STA 


3,PCCRY,2 


LDA 


3,CHNBR,2 


MOVL# 


3,3,SZC 


LDA 


1,MXLSZ 


JSR 


8.SAVX 


LDA 


BFAC0 2 


STA 


0,UBP,2 


STA 


•1,BYCT,2 


LDA 


3,I0AQ,2 


MOV 


3,3,SZR 


JMP 


GO 


LDA 


0,SGAD0 


ADD 


2,0 


.REC 




JMP 


TRLP 


JT AVAILABLE FOR PR 


LDA 


3,BP,3 


LDA 


0,CHNBR,2 


ADDL# 


0,0,SZC 


LDA 


3,UBP,2 


MOVR 


3,3 


LDA 


0,0,3 


LDA 


1,BTMSK 


MOV 


0,0, SNC 


MOVS 


0,0 


AND 


1,0 


LDA 


3,I0AQ,2 


LDA 


1,CHNBR,2 


ADDL# 


1,1, SNC 


ISZ 


BP,3 


ADDL* 


1,1, szc 


ISZ 


UBP,2 


LDA 


3,I0AQ,2 


LDA 


3,BP,3 


ADDL* 


1,1, SNC 


LDA 


3,UBP,2 


MOVR 


3,3 


LDA 


1,0,3 


MOV 


0,0, SNC 


MOVS 


0,1, SKP 


ADD 


a . i 




** r * 


STA 


1,0,3 


LDA 


3,IOAQ,2 


LDA 


1,CHNBR,2 


ADDL* 


1,1, SNC 


ISZ 


UBP,2 


ADDL* 


1,1, SZC 


ISZ 


BP,3 


DSZ 


BYCT,2 


JMP 


. + 1 



; PC+CARRY 



; LINE OR SEQUENTIAL? 
; LINE 



; IOAQ ENTRY 

; IS THERE A SEGMENT? 

; YES 

; NO 

; FORM SIGNAL ADDRESS 

f KICK THE TASK AND 

; wait for free segment 
:essing on user side 



J GET THE BYTE POINTER 

; CHANNEL * 

; READ OR WRITE? 

j WRITE, GET USER BYTE POINTER 

; ADDRESS ♦ CARRY SWITCH 

; SOURCE WORD 

; BYTE MASK ( RIGHT ) 

; WHICH BYTE? 

; LEFT 

; ISOLATE THE BYTE (RIGHT JUSTIFIED) 

; GET THE Q ENTRY 



; READ OR WRITE? 

; READ, BUMP SYSTEM POINTER 

; JUST CHECKING 

I WRITE, BUMP USER POINTER 



; GET THE BYTE POINTER 

} READ OR WRITE 

; READ, USER POINTER IS DESTINATION 

J DESTINATION WORD 

) WHICH BYTE 

f LEFT 

; RIGHT 

; PUT IT BACK 



; READ OR WRITE 

J READ, BUMP USER POINTER 

J WRITE, BUMP SYSTEM POINTER 

; DEC THE COUNT 

; NO CATASTROPHE 
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10009 
01 



LICENSED MATER 
BFPKG 



IAL - PROPERTY OF DATA GENERAL CORPORATION 



02 
03 
04 
05 
06 
07 
06 
09 
10 
11 
12 
13 
14 
15 
16 

4 ** 
A I 

ie 

19 

20 

21 

22 

23 

24 

25 

26 

27 

26 

29 

30 

31 

32 

33 

34 

35 

36 

37 

36 

39 

40 

41 

42 

43 

44 

45 

46 

47 

46 

49 

50 

51 

52 

53 

54 

55 



00266 
00267 
00270 
00271 
00272 
00273 
00274 
00275 
00276 
00277 
00300 

00301 
00302 
00303 



•025003 
'125113 

'000414 

•034707 

•175400 TRMLP: 

•025400 

•122415 

'000404 

'125004 

'000773 

•000404 

•035015 TRMFDi 

'021402 

'041403 



00304 

00305 

00306 

00307 

00310 

00311 

00312 

00313 

00314 

00315 

00316 

00317 

00320 

00321 

00322 

00323 

00324 

00325 

00326 

00327 

00330 

00331 

00332 

00333 

00334 

00335 

00336 

00337 



'035015 SEGTSTi 

'021402 

'025403 

'106032 

'000430 

'025400 

'125112 

'000436 

•024514 

•004544 

•025014 

•125004 

•000410 

•024510 

'004511 

'020504 

'143000 

'126000 

'077777 

'030016 

'021003 NOQ: 

'101113 

•000406 

'025005 

'021012 

•106400 

'045005 

'000440 



00340 
00341 
00342 
00343 
00344 
00345 
00346 
00347 
00350 



'021012 BYTSTs 

•101004 

'000653 

'021003 

'035015 

'101113 

•000403 

•020463 

•041400 



LDA 

MOVL# 

JMP 

LDA 

INC 

LDA 

SUB* 

JMP 

MOV 

JMP 

JMP 

LDA 
LDA 
STA 

LDA 

LDA 

LDA 

ADCZ* 

JMP 

LDA 

MOVL# 

JMP 

LDA 

JSR 

LDA 

MOV 

JMP 

LDA 

JSR 

LDA 

ADD 

ADC 

.XMT 

LDA 

LDA 

MOVL# 

JMP 

LDA 

LDA 

SUB 

STA 

JMP 

LDA 

MOV 

JMP 

LDA 

LDA 

MOVL# 

JMP 

LDA 

STA 



1,CHNBR,2 
1.1, SNC 

QFftTOT 

3,TRMTB 
3,3 
1,0/3 
1,0, SNR 
TRMFD 
1,1, SZR 
TRMLP 
SEGTST 

3,I0AQ,2 

0,BP,3 

0,LBA,3 

3,I0A0,2 
0,BP,3 
1,LBA,3 
0,1, SZC 

D VTOT 
w i i O I 

1, LINK, 3 

1,1, SZC 

COMCT 

l,IOAOF 

DEQ 

1,ERFLG,2 

1,1, SZR 

NOQ 

l,IODOF 

ENO 

0,SGAD1 

2,0 

1,1 

2,USP 

0,CHNBR,2 

0,0, SNC 

BYTST 

1,BFAC1,2 

0,BYCT,2 

0,1 

1,BFAC1,2 

.RTRN 

0,BYCT,2 
0,0, SZR 
TRLP 

0,CHNBR,2 
3,I0AQ,2 
0,0, SNC 
COMCT 
0, LINER 
0, LINK, 3 



; LINE OR SEQUENTIAL? 

} 3EG, TEST SEGMENT 

> LINE, TEST FOR TERMINATOR 



; IS CHAR A TERMINATOR 

> YES, KILL THE SEGMENT 

; NO, END OF TABLE? 

; NO, KEEP GOING 



; SEGMENT IS DEAD 



; IS SEGMENT ALIVE? 

i VES, TEST THE COUNT 

; NO 

; IS SEGMENT IN ERROR? 

; YES, COMPUTE THE BYTE COUNT 

; NO 

; remove from active q 

; get error flag 

; any errors? 

} yes, drop segment on floor 

; no 

; put on dormant q 



; ERROR RETURN IS A NO-NO 

; LINE OR SEQ? 

; SEQ 

; REQUESTED BYTE COUNT 

• rilDDCMT DvTtr mniiT 

; NUMBER OF BYTES TRANSFERRED 

; RETURN IN AC1 

; RETURN 



; BYTE COUNTER SATISFIED? 

; NO 

; YES, DONE 

; LINE OR SEQUENTIAL 

; SEQ, COMPUTE THE COUNT 

; LINE, GET LINE TOO LONG ERROR 

; FLAG SEGMENT IN ERROR 
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10010 BF 

01 

02 

03 00351 

04 00352 

05 00353 

06 00354 

07 00355 

08 00356 

09 00357 

10 00360 

11 00361 

12 00362 

13 00363 

14 00364 
15 

16 

17 00365 

18 00366 
19 

20 

21 00367 

22 00370 

23 00371 

24 00372 

25 00373 

26 00374 

27 00375 

28 00376 
29 
30 
31 

32 
33 
34 
35 

36 00377 

37 00400 

38 00401 

39 00402 

40 00403 

41 00404 

42 00405 

43 00406 

44 00407 

45 00410 

46 00411 

47 00412 

48 00413 

49 00414 

50 00415 

51 00416 
52 

53 
54 
55 
56 
57 
58 
59 
60 



LICENSED MATERIAL - PROPERTY OF DATA GENERAL CORPORATION 

PKG 



'025005 
•021012 
'106400 
'045005 
'021402 
'025403 
'122423 
•000417 
'021400 
'101102 
'000404 
'000413 



'000017 
'000377 



COMCT: 



SGAD0: 

BTMSK: 



'023015 
'101100 
'101220 
'041006 
'025007 
•102120 
1 107000 
'045007 

000000 



.RTNT: 



.RTRN: 



'030016 
'034012 
•035414 
'021010 
'040016 
'041404 
'021007 
1 101400 
'101400 
'041400 
•021004 
'041401 
•025005 
•045402 
•031006 
'051403 

000000 



000001 



LDA 

LDA 

SUB 

STA 

LDA 

LDA 

SUBZ 

JMP 

LDA 

MOVL 

JMP 

JMP 



BFTP0 
377 



LDA 

MOVL 

MOVZR 

STA 

LDA 

ADCZL 

ADD 

STA 

.IFN 

ISZ 

.ENDC 

LDA 
LDA 
LDA 
LDA 
STA 
STA 
LDA 
INC 
INC 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 

.IFN 

JMP 

.ENDC 

.IFE 



1,BFAC1,2 

0,BYCT,2 

0,1 

1,BFAC1,2 

0,BP,3 

1,LBA,3 

1,0, SNC 

.RTRN 

0, LINK, 3 

0,0, SZC 

.RTNT 

.RTRN 



0,S)IOAO,2 

0,0 

0,0 

0,BFAC2,2 

1,PCCRY,2 

0,0 

0,1 

1,PCCRY,2 

MSW 



2,USP 

3,USTP 

3,USTCT,3 

0,BFUSP,2 

0,USP 

0,TAC3,3 

0,PCCRY f 2 

0,0 

0,0 

0,TPC,3 

0,BFAC0,2 

0,TAC0,3 

1,BFAC1,2 

1,TAC1,3 

2,BFAC2,2 

2,TAC2,3 

MSW 

3.TMN1 



MSW 



; REQUESTED BYTE COUNT 

I CURRENT BYTE COUNT 

; NUMBER OF BYTES TRANSFERRED 



t END OF SEGMENT? 

; NO 

; YES, TEST FOR ERROR 

; ANY ERRORS? 

> YES 

; NO 



; CLEAR BIT 

; RETURN ERROR CODE 

; RETURN ADDRESS & CARRY 

; -2 

I RETURN TO CALL+1 ON ERROR 



} SET SCHEDULER MODE IN MAPPED WORLD 



; USER STATUS TABLE POINTER 

; CURRENT TCB 

; USP FROM BET 

; SET INTO TCB 

; PC ♦ CARRY FROM BET 

; BUMP RETURN 

; S SET INTO TCB 

; AC0 

s g, AC! 

; 8, AC2 



; RETURN VIA SCHEDULER 
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LICENSED MATERIAL - PROPERTY OF DATA GENERAL CORPORATION 



0011 BFPKG 








01 00417*035400 




LDA 


3,TPC,3 


02 00420*175220 




MOVZR 


3,3 


03 00421*060277 




INTDS 




a i\ nifli/iiaiflic.'iflfli,'! 




CT A 


•z OD! rtr 


*» "T W ■» C- C l/JT^U^ 




W 1 « 


j f n^uwv 


05 00423'034016 




LDA 


3,USP 


06 00424*060177 




INTEN 




07 00425*002401 




JMP 


aRRLOC 


08 00426*000000 


RRLOC: 







09 








10 




.ENDC 




11 








12 








13 00427*000020 


SGAD1: 


BFTP1 




14 00430*000015 


I0A0F: 


IOAO 




15 00431 '000016 


IODOF: 


I0DQ 




16 00432*100022 


LINER: 


1B0+ERLLI 


17 000000 




.IFN 


MSW 


18 








19 


.TMNl: 


TMNl 




20 








21 




.ENDC 





RECOVER PC FROM TCB 

RESTORE CARRY - FORM RETURN ADDRESS 

MUST DISABLE 

or T! so*! Arvfiocee tii c v c tc *j b»,t -rr .— .n 
nnunn wwwnLUJ i i* v3 I o l L. n r nut £.unu 

GET USER STACK POINTER 

LET 'EM GO, IGOR 

THIS JUMP IN MEMORY OF MR. PEABODY 
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10012 

01 

02 

03 

00 

05 

06 

07 

06 

09 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

in 

25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 



BF 



LICENSED MATERIAL 
PKG 



PROPERTY OF DATA GENERAL CORPORATION 



00433 
00434 
00435 
00436 
00437 
00440 
00441 
00442 
00443 
00444 
00445 
00446 
00447 
00450 
00451 
00452 
00453 
00454 
00455 
00456 
00457 
00460 



00461 
00462 
00463 
00464 
00465 
00466 
00467 
00470 
00471 
00472 
00473 
00474 
00475 



; ENQUEUE AN ENTRY 

; 

; AC0 - ADDRESS OF LINK WORD OF ENTRY 

i 

; ACl - RELATIVE Q WORD ADDRESS 



' 133000 
•025000 
'125005 
'000411 
•131000 
'025000 
•125005 
•000405 
'125112 
'001400 
•131000 
'000772 
'041000 
'111000 
'025001 
'045002 
•102400 
'025000 
'125113 
'041000 
'030016 
'001400 



ENO: 



133000 
145000 
031000 
141005 
000407 
045002 
025000 
125112 
126400 
031002 
045000 
030016 
001400 



NOLNK: 



ADD 


1,2 


LDA 


1,0,2 


MOV 


1,1, SNR 


JMP 


NOLNK 


MOV 


1/2 


LDA 


1, LINK, 2 


MOV 


1,1, SNR 


JMP 


NOLNK 


MOVL* 


1,1, szc 


JMP 


0,3 


MOV 


1,2 


JMP 


.-6 


STA 


0, LINK, 2 


MOV 


0,2 


LDA 


1,FBA,2 


STA 


1,BP,2 


SUB 


0,0 


LDA 


1, LINK, 2 


MOVL# 


1,1, SNC 


STA 


0, LINK, 2 


LDA 


2,USP 


JMP 


0,3 



; INDE 

; GET 

i IS Q 

; YES 

> NO, 

; GET 

; IS T 

; NO 

; ERRO 

; YES, 

; INDE 

; GET 

; put 

; INDE 



X ON Q WORD 
CURRENT Q ENTRY 
EMPTY? 

INDEX ON ENTRY 
LINK WORD 
HERE A LINK? 

R SEGMENT? 

DON'T ENQUEUE 
X ON LINK 
NEXT ENTRY 
NEW ENTRY ON THE Q 
X ON THE NEW ENTRY 



; INIT THE BYTE POINTER 

; GET LINK WORD 

f ERROR SEGMENT? 

; NO, CLEAR ITS LINK 

; RETURN 



; DEQUEUE AN ENTRY 

; 

; AC0 - ADDRESS OF ENTRY'S LINK WORD (RETURNED) 

; 

1 ACl - RELATIVE ADDRESS OF Q WORD 



DEQ: 



ADD 
MOV 
LDA 
MOV 
JMP 
STA 
LDA 



SUB 
LDA 
STA 
DEQRT: LDA 
JMP 



1,2 
2,1 

2,0,2 
2,0, SNR 
DEQRT 
1,BP,2 
1, LINK, 2 

* « e^r 
1,1 (UH, 

1,1 

2,BP,2 
1,0,2 

2,USP 
0,3 



; INDEX ON Q WORD 



GET CURRENT ENTRY 

IS THERE AN ENTRY? 

NO 

YES, SAVE Q WORD ADDRESS 

GET LINK WORD 

SEGMENT IN ERROR? 



IN THE 



f YES, CLEAR THIS Q 

t GET Q WORD ADDRESS 

; MAKE LINE THE CURRENT ENTRY 
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LICENSED MATERIAL - PROPERTY OF DATA GENERAL CORPORATION 
10013 BFPKG 
01 

02 tt I/O PROCESSING TASK OF BUFERR PACKAGE 

03 

I DORMANT Q ENTRY 

; ANY DORMANT SEGMENTS 

; YES 

; SIGNAL WORD ADDRESS 

I -1 MEANS ANOTHER REQUEST 
; OTHERWISE CLOSE FUNCTION 



I FIRST BYTE ADDRESS 
t SEGMENT SIZE 



04 00476*035816 .TSK: 


LDA 


3,1000,2 


05 00<i77' 175004 


MOV 


3,3,SZR 


06 00500*000407 


JMP 


SYSA 


07 00501 '020726 


LDA 


0,SGAD1 


06 00502' 143000 


ADD 


2,0 


09 00503' 000222' 


.REC 




10 00504*124014 


COM* 


1 1 SZR 


11 00505'077777 


.KILL 




12 00506*000770 


JMP 


.TSK 


13 00507'050016 SYSA: 


STA 


2,USP 


14 00510'021401 


LDA 


0,FBA,3 


15 00511 '025013 


LDA 


1,SEGSZ,, 


16 00512'035003 


LDA 


3.CHNBR,, 


17 00513'030526 


LDA 


2,.CMSK 


IS 00514*173400 


AND 


3,2 


19 00515'177ll2 


ADDL# 


3,3,SZC 


20 00516'000414 


JMP 


WRT 


21 00517' 175113 


MOVL# 


3,3,SNC 


22 00520*000405 


JMP 


RDSQ 


23 00521 '006017 


.SYSTM 




24 00522'015477 


.RDL 


CPU 


25 00523'000404 


JMP 


.TER0 


26 00524 '000404 


JMP 


.TER0tl 


27 00525'006017 RDSO: 


.SYSTM 




28 00526'015077 


.RDS 


CPU 


29 00527 '004526 .TER0: 


JSR 


ERROR 


30 00530'030016 


LDA 


2,USP 


31 00531*000414 

32 

33 00532'175113 WRT: 


JMP 


COMTK 


MOVL# 


3,3,SNC 


34 00533*000405 


JMP 


WRSQ 


35 00534*006017 


.SYSTM 




36 00535'017077 


.WRL 


CPU 


37 00536*000404 


JMP 


.TER1 


36 00537*000404 


JMP 


•TER1+1 


39 00540*006017 WRSQ: 


.SYSTM 




40 00541*016477 


.WRS 


CPU 


41 00542'004513 .TER1: 


JSR 


ERROR 


HC w5h3 030016 


LDA 


2,USP 


43 00544*025013 


LDA 


1,SEGSZ,2 


44 00545*035016 COMTK: 


LDA 


3,I0DQ,2 


45 00546*123000 


ADD 


1,0 


46 00547*041403 


STA 


0,LBA,3 


47 00550*024661 


LDA 


1,I0D0F 


46 00551 '004710 


JSR 


DEO 


49 00552*024656 


LDA 


1,IOAOF 


50 00553'004660 


JSR 


ENO 


51 00554'020611 


LDA 


0,SGAD0 


52 00555' 143000 


ADD 


2,0 


53 00556' 126000 


ADC 


1,1 


54 00557'000326* 


,XMT 




55 00560*030016 


LDA 


2,USP 


56 00561 '000715 


JMP 


.TSK 



I READ OR WRITE? 

; WRITE 

J READ--LINE OR SEQ? 

; LINE READ 



SEQUENTIAL READ 



; LINE OR SEQ? 
; LINE WRITE 

; SEQUENTIAL WRITE 



; INIT LIMIT BYTE ADDRESS 

; REMOVE FROM DORMANT Q 

; PUT ON ACTIVE Q 

I GET THE OFFSET 

; FORM THE ADDRESS 

; SIGNAL THE PACKAGE 

; ERROR RETURNS ARE A NO-NO 
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10014 

01 

02 

03 

04 

05 

06 

07 

08 

09 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

46 

49 

50 

51 

52 

53 

54 

55 

56 

57 

56 



LICENSED 
BFPK6 



MATERIAL - PROPERTY OF DATA GENERAL CORPORATION 



; BUFFER CLOSE FUNCTION PROCESSING 



00562' 175100 BFCLS: MOVL 

00563'055007 STA 

00564'004461 JSR 

00565'021003 LDA 

00566' 100015 COM* 

00567*000441 JMP 

00570'103113 ADDL# 

00571 '000432 JMP 

00572*102400 SUB 

00573*041020 STA 

00574*020633 LDA 

00575' 143000 ADD 

00576' 126000 ADC 

00577'077777 .XMTW 

00600*030016 LDA 

00601'035015 LDA 

00602*025400 LDA 

00603'125102 MOVL 

00604*002440 JMP 

00605*025401 LDA 

00606*035402 LDA 

00607 '136405 SUB 

00610'000413 JMP 

00611*055013 STA 

00612'024616 LDA 

00613*004646 JSR 

00614*024615 LDA 

00615*004616 JSR 

00616*020611 LDA 

00617*143000 ADD 

00620*126000 ADC 

00621*000577' .XMTW 

00622*030016 LDA 



3,3 

3,PCCRY,2 

.SAVE 

0,CHNBR,2 

0,0, SNR 

CHCL1 

0,0, SNC 

CHCLS 

0,0 

0,BFTP1,2 

0,SGAD1 

2,0 

1,1 

2,USP 

3,I0AQ,2 

1, LINK, 3 

1,1, SZC 

3RTN3 

1,FBA,3 

3,BP,3 

1,3,SNR 

CHCLS 

3,SEGSZ,2 

l,IOAOF 

DEO 

l,IODOF 

ENQ 

0,SGAD1 

2,0 

1,1 

2,USP 



; CHECK IF CHANNEL HAS BEEN OPENED 

; NO--JUST EXIT 

; READ OR WRITE? 

; READ, JUST CLOSE THE CHANNEL 

; CLEAR SIGNAL AREA 

1 SIGNAL ADDRESS OFFSET 

; SIGNAL WORD ADDRESS 

; SIGNAL 

; VERY BAD 

; NO 

; ANY ERRORS 

1 YES 



; ACTIVE DATA COUNT 

; NO DATA IN SEGMENT 

; SAVE IN BET 

; REMOVE CURRENT ENTRY 

; AND PUT ON DORMANT 



CLOSE I/O CHANNEL—KILL I/O HANDLING TASK 



00623*020604 CHCLS: 

00624' 143000 

00625*126520 

00626*000621' 

00627*030016 

00630*021003 CHCLl: 

00631 * 126000 

00632*045003 

00633*030406 

00634*113400 

00635'006017 

00636*014477 

00637'002403 

00640*002403 

00641 '000077 

00642*000167 

00643*000377'RTN2 

00644'000367'RTN3 



.CMSK: 
.ERi: 



LDA 

ADD 

SUBZL 

.XMTW 

LDA 

LDA 

ADC 

STA 

LDA 

AND 

.SYSTM 

.CLOS 

JMP 

JMP 

77 

.ERR 

.RTRN 

.RTNT 



0,SGAD1 
2,0 
1 1 

2,USP 

0,CHNBR,2 

1,1 

i ,CHNBR,2 

2,. CMSK 

0,2 

CPU 
3. ERI 
3RTN2 



; SETUP SIGNAL WORD ADDRESS 
; SETUP TO KILL BUFFER TASK 



CHANNEL NUMBER ONLY 
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{0015 BF 

01 

02 

03 

04 

05 
06 
07 
08 
09 

10 00645 

11 00646 

12 00647 

13 00650 

14 00651 

15 00652 

16 00653 

17 00654 
18 

19 
20 

21 00655 

22 00656 

23 00657 

24 00660 

25 00661 

26 00662 

27 00663 
26 00664 
29 

30 



LICENSED MATERIAL 
PKG 



PROPERTY OF DATA GENERAL CORPORATION 



; ROUTINE TO SAVE STATUS OF CALLING TASK IN BUFFER TABLE 

;ON RETURN: 

/ AC0=0 

; ACl=ORIGINAL AC1 IN CALL 

; AC2=ADDRESS OF FWA OF BUFFER TABLE 



'041004 
'045005 
'051006 
'020016 
'041010 
'050016 
'102400 

' 00 1 400 



•SAVE: 



STA 
STA 
STA 
LDA 
STA 
STA 
SUB 
JMP 



0,BFAC0,2 

1,BFAC1,2 

2,BFAC2,2 

0,USP 

0,BFUSP,2 

2,USP 

0,0 

0r3 



;ERROR ROUTINE — SETS ERROR FLAG IN BUFFER TABLE 



•141100 ERROR: 

'101240 

'030016 
'015014 
'031016 
•041000 
'021001 
'001400 



MOVL 

MpvOR 

LDA 

DSZ 

LDA 

STA 

LDA 

JMP 

.END 



2/0 

0,0 

2,USP 

ERFLG,2 

2,IODQ,2 

r LINK,2 

0»FBA,2 

0,3 
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LICENSED 


MATERIAL 


- PROPERTY OF Dl 


ITA GENER/ 


1L CORPOS 


IATION 




0016 


i BFPKG 


















ADC 


102000 




5/03 


7/25 


9/35 


13/53 


14/17 


14/35 


14/47 


ADD 


103000 




5/09 


6/04 


6/16 


7/08 


7/32 


8/17 


8/48 








9/34 


10/27 


12/11 


12/41 


13/08 


13/45 


13/52 








14/16 


14/34 


14/42 










AND 


103400 




5/08 


6/32 


8/32 


13/18 


14/50 






BETSZ 


000156* 




5/12 


6/03 


7/15 










BFAC0 


000004 




3/14 


6/28 


8/10 


10/46 


15/10 






BFAC1 


000005 




3/15 
15/11 


5/11 


9/41 


9/44 


10/03 


10/06 


10/48 


BFAC2 


000006 




3/16 


7/29 


10/24 


10/50 


15/12 






BFACS 


000204' 


EN 


2/26 


8/03 












BFCLS 


000562' 


EN 


2/28 


14/05 












BFRLO 


000004' 


EN 


2/20 


4/35 












BFRSO 


000000 ' 


EN 


2/18 


4/30 












BFTP0 


000017 




3/25 


7/03 


7/09 


10/17 








BFTP1 


000020 




3/26 
7/15 


5/05 
11/13 


5/14 

14/14 


5/21 


5/27 


5/38 


6/20 


BFUSP 


000010 




3/18 


10/39 


15/14 










BFWLO 


000016* 


EN 


2/24 


4/47 












BFWSO 


000010' 


EN 


2/22 


4/40 












BP 


000002 




3/32 


6/14 


8/23 


8/36 


8/41 


8/55 


9/15 








9/19 


10/07 


12/26 


12/46 


12/50 


14/25 




BTMSK 


000366' 




8/29 


10/18 












BYCT 


000012 




3/20 
10/04 


6/05 


6/41 


8/12 


8/56 


9/42 


9/47 


BYTST 


000340' 




9/22 


9/40 


9/47 










C4 


000157' 




6/11 


7/16 












CHCL1 


000630' 




14/10 


14/46 












CHCLS 


000623' 




14/12 


14/27 


14/41 










CHMSK 


000154' 




5/07 


6/31 


7/13 










CHNBR 


000003 




3/09 


5/10 


6/30 


6/40 


7/28 


8/05 


8/24 








8/34 


8/51 


9/02 


9/38 


9/50 


13/16 


14/08 








14/46 


14/48 












CHRIM 


000002 




3/08 


6/29 












COM 


100000 




5/15 


7/27 


13/10 


14/09 








COMCT 


000351' 




9/25 


9/53 


10/03 










COMOP 


000026* 




5/06 














COMTK 


000545' 




13/31 


13/44 












CPU 


000077 




6/34 


13/24 


13/28 


13/36 


13/40 


14/52 




DEQ 


000461' 




9/27 


12/41 


13/48 


14/30 








DEQRT 


000474' 




12/45 


12/52 












DIVI 


000144' 




5/28 


5/34 


7/03 










DSZ 


014000 




6/20 


8/56 


15/24 










ENQ 


000433' 




9/32 


12/11 


13/50 


14/32 








ERFLG 


000014 




3/22 


6/09 


9/28 


15/24 








ERLLI 


000022 




11/16 














ERROR 


000655' 




13/29 


13/41 


15/21 










ERSPC 


000027 




7/14 














FBA 


000001 




3/31 


6/13 


12/25 


13/14 


14/24 


15/27 




GO 


000224' 




8/15 


8/23 












HDRLT 


000004 




3/35 


7/20 












INC 


101400 




7/05 


9/06 


10/43 


10/44 








INIT 


000071' 




5/32 


6/03 












INTDS 


060277 




11/03 














INTEN 


060177 




11/06 














INTLP 


000100' 




6/10 


6/21 












IOAOF 


000430' 




9/26 


11/14 


13/49 


14/29 








IOAQ 


000015 




3/23 


6/07 


6/43 


8/13 


8/33 


8/40 


8/se 








9/14 


9/18 


9/51 


10/21 


11/14 


14/20 
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LICENSED 


MATERIAL 


- PROPERTY OF DATA GENERAL CORPORATION 




0017 BFPKG 
















IODOF 000431 ' 


9/31 


11/15 


13/47 


14/31 








IOOO 


000016 


3/24 


6/08 


6/45 


II/1C 


1 1 /ftti 


« t J a i: 


t *=• r- 


ISZ 


010000 


8/36 


8/38 


8/53 


8/55 


1 Jf »/■* 

10/32 


i J/ «*M 


I3/C3 


JMP 


000000 


4/33 


4/38 


4/45 


5/16 


5/26 


5/30 


5/32 






5/37 


6/21 


6/35 


6/48 


6/49 


7/07 


7/09 






7/34 


8/15 


8/19 


8/57 


9/04 


9/09 


9/11 






9/12 


9/22 


9/25 


9/30 


9/40 


9/45 


9/49 






9/53 


10/10 


10/13 


10/14 


10/55 


11/07 


12/14 






12/18 


12/20 


12/22 


12/32 


12/45 


12/53 


13/06 






13/12 


13/20 


13/22 


13/25 


13/26 


13/31 


13/34 






13/37 


13/38 


13/56 


14/10 


14/12 


14/23 


14/27 






14/53 


14/54 


15/17 


15/28 








JSR 


004000 


4/32 


4/37 


4/42 


4/49 


5/28 


5/34 


8/08 






9/27 


9/32 


13/29 


13/41 


13/48 


13/50 


14/07 






14/30 


14/32 












LBA 


000003 


3/33 


3/35 


6/17 


9/16 


9/20 


10/08 


13/46 


LDA 


020000 


5/04 


5/06 


5/07 


5/11 


5/12 


5/14 


5/27 






5/33 


5/39 


6/03 


6/11 


6/15 


6/28 


6/29 






6/30 


6/31 


6/37 


6/38 


6/40 


6/41 


6/46 






7/24 


7/26 


7/30 


o inc. 

\j r v j 


8/07 


8/10 


6/i3 






8/16 


8/23 


8/24 


8/26 


8/28 


8/29 


8/33 






8/34 


8/40 


8/41 


8/43 


8/45 


8/50 


8/51 






9/02 


9/05 


9/07 


9/14 


9/15 


9/18 


9/19 






9/20 


9/23 


9/26 


9/28 


9/31 


9/33 


9/37 






9/38 


9/41 


9/42 


9/47 


9/50 


9/51 


9/54 






10/03 


10/04 


10/07 


10/06 


10/11 


10/21 


10/25 






10/36 


10/37 


10/38 


10/39 


10/42 


10/46 


10/48 






10/50 


11/01 


11/05 


12/12 


12/16 


12/25 


12/28 






12/31 


12/43 


12/47 


12/50 


12/52 


13/04 


13/07 






13/14 


13/15 


13/16 


13/17 


13/30 


13/42 


13/43 






13/44 


13/47 


13/49 


13/51 


13/55 


14/08 


14/15 






14/19 


14/20 


14/21 


14/24 


14/25 


14/29 


14/31 






14/33 


14/37 


14/41 


14/45 


14/46 


14/49 


15/13 






15/23 


15/25 


15/27 










LINER 


000432' 


9/54 


11/16 












LINK 


000000 


3/30 


3/35 


6/19 


6/23 


9/23 


9/55 


10/11 






12/16 


12/23 


12/26 


12/30 


12/47 


14/21 


15/26 


LINMD 


000061 ' 


5/16 


5/33 












LINOP 


000022' 


4/36 


5/02 












LPHSZ 


000163' 


5/33 


7/20 












MOV 


101000 


5/20 


6/10 


6/36 


8/14 


8/30 


8/46 


9/10 






9/29 


9/48 


12/13 


12/15 


12/17 


12/21 


12/24 






12/42 


12/44 


13/05 










MSW 


000000 


2/02 


2/10 


2/36 


10/30 


10/53 


10/59 


11/17 


MXLSZ 


000164* 


5/39 


7/21 


8/07 










NBF30 


00000.1 


3/07 


5/04 












NEG 


100400 


5/18 














NES 


000165' 


5/26 


5/30 


5/37 


6/35 


6/48 


7/24 




NOLNK 


000447' 


12/14 


12/18 


12/23 










NOQ 


000330' 


9/30 


9/38 












PCCRY 


000007 


3/17 


4/31 


4/36 


4/41 


4/48 


7/30 


7/33 






8/04 


10/25 


10/28 


10/42 


14/06 






PRCHN 


000000 


3/06 


5/06 


6/37 










PRIMK 


000153' 


6/38 


7/12 












RDSQ 


000525' 


13/22 


13/27 












RRLOC 


000426' 


11/04 


11/07 


11/08 










RTN1 


000162' 


6/49 


7/19 


7/34 










RTN2 


0019643' 


14/54 


14/57 
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LICENSED MATERIAL 
0018 BFPKG 



PROPERTY OF DATA GENERAL CORPORATION 



RTN3 


000644' 


14/23 


14/58 












SCLLG 


000204 


7/20 


7/21 












SEGSZ 


000013 


3/21 


5/31 


5/40 


6/15 


13/15 


13/43 


14/28 


SEGTS 


000304' 


9/04 


9/12 


9/18 










SEQOP 


000024' 


4/33 


4/45 


5/04 










SGAD0 


000365' 


8/16 


10/17 


13/51 










SGAD1 


000427' 


9/33 


11/13 


13/07 


14/15 


14/33 


14/41 




SKP 


000001 


5/03 


7/04 


8/47 










SNC 


000003 


5/19 


5/24 


5/25 


6/44 


8/30 


8/35 


8/42 






8/46 


8/52 


9/03 


9/39 


9/52 


10/09 


12/29 






13/21 


13/33 


14/11 










SNR 


000005 


5/15 

14/09 


5/29 
14/26 


7/27 


9/08 


12/13 


12/17 


12/44 


SPERR 


000155' 


7/14 


7/24 












STA 


040000 


4/31 


4/36 


4/41 


4/48 


5/05 


5/10 


5/21 






5/31 


5/38 


5/40 


6/05 


6/07 


6/08 


6/09 






6/13 


6/14 


6/17 


6/19 


6/23 


6/43 


6/45 






7/03 


1/28 


7/29 


7/33 


8/04 


8/11 


8/12 






8/49 


9/16 


9/44 


9/55 


10/06 


10/24 


10/28 






10/40 


r0/4t 


10/45 


10/47 


10/49 


10/51 


11/04 






12/23 


12/26 


12/30 


12/46 


12/51 


13/13 


13/46 






14/06 


14/14 


14/28 


14/48 


15/10 


15/11 


15/12 






15/14 


15/15 


15/26 










STBYT 


000244' 


8/40 














SUB 


102400 


5/13 


5/23 


6/06 


6/22 


7/04 


9/08 


9/43 






10/05 


12/27 


12/49 


14/13 


14/26 


15/16 




SYSA 


000507' 


13/06 


13/13 












SZC 


000002 


5/36 


6/42 


7/06 


8/06 


8/25 


8/37 


8/54 






9/21 


9/24 


10/12 


12/19 


12/48 


13/19 


14/22 


SZR 


000004 


8/14 


9/10 


9/29 


9/48 


13/05 


13/10 




TAC0 


000001 


10/47 














TAC1 


000002 


10/49 














TAC2 


000003 


10/51 














TAC3 


000004 


10/41 














TASK 


000160' 


6/46 


7/17 












TPC 


000000 


10/45 


11/01 












TRLP 


000215' 


8/13 


8/19 


9/49 










TRMFD 


000301' 


9/09 


9/14 












TRMLP 


000272' 


9/06 


9/11 












TRMTB 


000200' 


7/36 


9/05 












UBP 


000011 


3/19 


8/11 


8/26 


6/38 


8/43 


8/53 




USP 


000016 


7/26 


9/37 


10/36 


10/40 


11/05 


12/31 


12/52 






13/13 


13/30 


13/42 


13/55 


14/19 


14/37 


14/45 






15/13 


15/15 


15/23 










USTCT 


000014 


10/38 














USTP 


000012 


10/37 














fcRSQ 


000540' 


13/34 


13/39 












WRT 


000532' 


13/20 


13/33 












.CLOS 


014400 


14/52 














.CMSK 


000641' 


13/17 


14/49 


14/55 










.ER1 


000642' 


14/53 


14/56 












.ERR 


000167' 


7/26 


14/56 












.KILL 


000505' XN 2/30 


13/11 












.OPEN 


014000 


6/34 














.RDL 


015400 


13/24 














.RDS 


015000 


13/28 














.REC 


000503' XN 2/34 


8/18 


13/09 










.RTNT 


000367' 


10/13 


10/21 


14/58 
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LICENSED MATERIAL - PROPERTY OF DATA GENERAL CORPORATION 
0019 BFPKG 



.RTRN 


000377' 




7/19 


9/45 


10/10 


10/14 


10/29 


14/57 


.SAVE 
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Title 



No. 



We wrote the book for you, and naturally we had to make certain assumptions about who you are and how you 
would use it. Your comments will help us correct our assumptions and improve our manuals. Please take a few 
minutes to respond. 

If you have any comments on the software itself, please contact your Data General representative If you wish to 
order manuals, consult the Publications Catalog (01 2-330). 



D EDP Manager 

D Senior System Analyst 

□ Analyst/Programmer 

D Operator 

LJ Other 



What programming language(s) do you use? 



(List in Older: I = Primary use) 

Introduction to the product 

Reference 

Tutorial Text 

Operating Guide 



^^■ffnfljW *if§if ffflfp p 




Yes Somewhat No 

CH □ □ Is the manual easy to read? 

D D □ Is it easy to understand? 

fJ LI □ Is the topic order easy to follow? 

•— ' D D Is the technical information accurate? 

D rj U Can you easily find what you want? 

D D D Do the illustrations help you? 

D □ U Does the manual tell you everything you need to know? 
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WAST 




(Please note page number and paragraph where applicable. ) 
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